Attribute VB_Name = "Connection"
Option Explicit

Public Function GetConnectionString()
    Dim Connect As Object
    Set Connect = CreateObject("Connect.clsConnect")
    
    GetConnectionString = Connect.ConnectionString
    
    Set Connect = Nothing
End Function
